'!TITLE "<Title>"
PROGRAM test0830
TAKEARM
DEFINT DELAYTIME,SPEED_FAST,SPEED_SLOW 

	SPEED_FAST=I[40]
	SPEED_SLOW=I[41]
	DELAYTIME=I[42]
'Hanh add
	EXTSPEED SPEED_SLOW
	MOVE P,P89	
	DELAY 2000
''''''''''''''
	EXTSPEED SPEED_FAST
	'MOVE L,P900	
	MOVE P,P90
	MOVE P,P91
	APPROACH L,P92,@E 100
	EXTSPEED SPEED_SLOW
	MOVE L,@E P92
	DELAY DELAYTIME
	EXTSPEED SPEED_FAST
	DEPART L,@E 100	

	APPROACH L,P93,@E 100
	EXTSPEED SPEED_SLOW
	MOVE L,@E P93
	DELAY DELAYTIME
	EXTSPEED SPEED_FAST
	DEPART L,@E 100
	
	APPROACH L,P94,@E 100
	EXTSPEED SPEED_SLOW	
	MOVE L,@E P94
	DELAY DELAYTIME
	EXTSPEED SPEED_FAST	
	DEPART L,@E 100
	
	MOVE P,P90	
END
